home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
026-050
/
scopedisk28
/
getfil
/
testing.c
< prev
Wrap
C/C++ Source or Header
|
1995-03-18
|
3KB
|
119 lines
/* testing.c */
/* comes with PowerWindows 2.0 */
#include <exec/types.h>
#include <intuition/intuition.h>
#include <libraries/dosextens.h>
#include <functions.h>
#define I_REV 31
#define G_REV 31
#define EWDTH 640
#define EHGHT 198
#define NL NULL
struct IntuitionBase *IntuitionBase;
struct GfxBase
{
int b;
} *GfxBase;
struct NewScreen TS =
{
0,0,640,200,2,
1,2,
HIRES, WBENCHSCREEN,
0L, 0L, 0L
};
/* Used to open a Window */
struct NewWindow EdWindow =
{
0,2,EWDTH,EHGHT-2, /* LeftEdge,TopEdge,Width,Height */
1,2, /* DetailPen,BlockPen */
MENUPICK | NEWSIZE | REFRESHWINDOW | ACTIVEWINDOW |
MOUSEBUTTONS | RAWKEY | MOUSEMOVE,
WINDOWDRAG | WINDOWSIZING | SIMPLE_REFRESH | ACTIVATE | WINDOWDEPTH,
NL,NL,"Window", /* FirstGadget, CheckMark, Title */
NL, /* Screen ( Null) */
NL, /* BitMap */
150,45,32767,32767, /* MinW, MinH, MaxW, MaxH */
CUSTOMSCREEN /* Type */
};
main()
{
struct Window *eW;
struct Screen *eS;
struct Process *OurTask;
struct Window *old_pr_WindowPtr;
static char default_name[50] = "";
static char default_path[50] = "df0:";
if (!(IntuitionBase = (struct IntuitionBase *)
OpenLibrary("intuition.library",(long)I_REV)) ||
!(GfxBase =(struct GfxBase *)OpenLibrary("graphics.library",
(long)G_REV)) )
{
printf("Can't open libraries\n");
exit(20);
}
if (!(eS = (struct Screen *)OpenScreen(&TS)) )
{
printf("Can't Open Screen!!!!!\n");
exit(22);
}
EdWindow.Screen = eS;
if (!(eW =(struct Window *)OpenWindow(&EdWindow)) )
{
CloseScreen(eS);
printf("Can't open window...\n");
exit(21);
}
/* CAUTION!!! KNOW ABOUT pr_WindowPtr before you use it!!! */
OurTask = (struct Process *)FindTask(0L);
old_pr_WindowPtr = OurTask->pr_WindowPtr;
OurTask->pr_WindowPtr = eW;
/* Here comes the test... */
/* try something unlikely */
strcpy (default_path, "df5:");
printf ("First try:\n");
if (!get_fname(eW,eS,"Load File",default_name,default_path," Load"))
printf ("Could not open requester\n");
else
{
printf ("File name is: \'%s\'\n",default_name);
printf ("Directory is: \'%s\'\n",default_path);
}
/* use same file and path as last time */
printf ("Second try:\n");
if (!get_fname(eW,eS,"Select File",default_name,default_path, 0))
printf ("Could not open requester\n");
else
{
printf ("File name is: \'%s\'\n",default_name);
printf ("Directory is: \'%s\'\n",default_path);
}
/* ALWAYS RESTORE pr_WindowPtr BEFORE CLOSING THE WINDOW!!! */
OurTask->pr_WindowPtr = old_pr_WindowPtr;
CloseWindow(eW);
CloseScreen(eS);
CloseLibrary(GfxBase);
CloseLibrary(IntuitionBase);
}